CAAElliptical_VelocityAtAphelion <-
function(e, a){
.Call("CAAElliptical_VelocityAtAphelion", e, a)
}
